home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / cli / master60.zoo / master / batch / textsave.bat < prev    next >
Encoding:
DOS Batch File  |  1992-01-26  |  4.4 KB  |  159 lines
  1. # saves Master environment in batchfile format
  2. TMPSAVE = '/tmp/textsave.set'
  3. SAVE -g $TMPSAVE
  4. if "$1" != "" {
  5.     SAVEFILE = '$1'
  6. } else {
  7.     SAVEFILE = 'setup.bat'
  8. }
  9. TMPFILE = '/tmp/textsave.tmp'
  10. rem Saving Master working environment in $SAVEFILE
  11. version => TMPVAR
  12. printf  > $SAVEFILE "# TEXTSAVE ENVIRONMENT FOR %s\n" "$TMPVAR[5,]"
  13. date => TMPVAR
  14. time => TMPVAL
  15. printf >> $SAVEFILE "# SAVED ON %s AT %s\n" "$TMPVAR" "$TMPVAL"
  16. printf >> $SAVEFILE "# THIS FILE WAS MECHANICALLY GENERATED BY TEXTSAVE.BAT\n"
  17. # kbd settings
  18. rem kbd settings ...
  19. kbd => TMPVAR
  20. printf "kbd %s\n" TMPVAR >> $SAVEFILE
  21. # rs232 settings
  22. rem rs232 settings ...
  23. rs232 => TMPVAR
  24. printf "rs232 baud $TMPVAR[6] parity $TMPVAR[9] bits $TMPVAR[12]\n" >> $SAVEFILE
  25. # history parameters
  26. rem history parameters ...
  27. history => TMPVAR
  28. if "$TMPVAR[5]" = "accepting" {
  29.     printf "history -w %d\n" $TMPVAR[8] >> $SAVEFILE
  30. }
  31. printf "history %d\n" $TMPVAR[4] >> $SAVEFILE
  32. # link settings
  33. HEADLINE = "symbolic links"
  34. printf "%s ... \r" HEADLINE
  35. ln > $TMPFILE
  36. open links $TMPFILE
  37. repeat
  38.     getline TMPVAR
  39.     printf "%s ... %s\eJ\r" HEADLINE "$TMPVAR[0]"
  40.     printf "ln %s %s\n" "$TMPVAR[0]" "$TMPVAR[1]" >> $SAVEFILE
  41. until eof links
  42. close links
  43. # setenv variables
  44. printf "%s ...\eJ\n" HEADLINE
  45. HEADLINE = "global (environment) variables"
  46. printf "%s ... \r" HEADLINE
  47. setenv > $TMPFILE
  48. norec
  49. open global_vars $TMPFILE
  50. repeat
  51.     getline TMPVAR
  52.     if eof global_vars {
  53.         break;
  54.     }
  55.     if "#$TMPVAR[0]#" in "#LC#NOREC#" {
  56.         continue;
  57.     }
  58.     printf "%s ... %s\eJ\r" HEADLINE "$TMPVAR[0]"
  59.     cdr -0g $TMPVAR[0] ==> TMPVAL
  60.     if "$TMPVAL[:-2]" = "" {
  61.         printf "setenv %s\n" "$TMPVAR[0]" >> $SAVEFILE
  62.     } else {
  63.         if "'" in "$TMPVAL[:-2]" {
  64.             if "$TMPVAR[2]" != "" {
  65.                 printf "$0: global var $TMPVAR[0] should be edited\n"
  66.                 printf "# please quote \" in the next line\n" >> $SAVEFILE
  67.             }
  68.             printf >> $SAVEFILE '%s = "' "$TMPVAR[0]"
  69.             rem >> $SAVEFILE $TMPVAL[:-2]"
  70.         } else {
  71.             printf >> $SAVEFILE "%s = '%s'\n" "$TMPVAR[0]" '$TMPVAL[:-2]'
  72.             if "$TMPVAR[0]" = "LINES" && "$TMPVAL[:-2]" = "50" {
  73.                 printf "l50\n" >> $SAVEFILE
  74.             }
  75.         }
  76.         printf "export %s\n" "$TMPVAR[0]" >> $SAVEFILE
  77.         printf "export %s\n" "$TMPVAR[0]" >> $SAVEFILE
  78.     }
  79. until eof global_vars
  80. close global_vars
  81. # alias settings
  82. printf "%s ...\eJ\n" HEADLINE
  83. HEADLINE = "alias macros"
  84. printf "%s ... \r" HEADLINE
  85. cat >> $SAVEFILE << END_OF_WARNING
  86. # please quote $0, $1, ..., $*, $+ and $@ in these lines
  87. END_OF_WARNING
  88. alias > $TMPFILE
  89. open aliases $TMPFILE
  90. repeat
  91.     getline TMPVAR
  92.     printf "%s ... %s\eJ\r" HEADLINE "$TMPVAR[0]"
  93.     alias ==> TMPVAL $TMPVAR[0]
  94.     if "'" in TMPVAL {
  95.         if "$TMPVAR[2]" != "" {
  96.             printf "$0: alias $TMPVAR[0] should be edited\n"
  97.             printf "# please quote \" in the next line\n" >> $SAVEFILE
  98.         }
  99.         printf >> $SAVEFILE 'alias %s "' "$TMPVAR[0]"
  100.         rem >> $SAVEFILE $TMPVAL[:-2]"
  101.     } else {
  102.         printf >> $SAVEFILE "alias %s '%s'\n" "$TMPVAR[0]" '$TMPVAL[:-2]'
  103.     }
  104. until eof aliases
  105. close aliases
  106. # set variables
  107. printf "%s ...\eJ\n" HEADLINE
  108. HEADLINE = "local variables"
  109. printf "%s ... \r" HEADLINE
  110. restore -m $TMPSAVE
  111. set > $TMPFILE
  112. open local_vars $TMPFILE
  113. repeat
  114.     getline TMPVAR
  115.     if eof local_vars {
  116.         break;
  117.     }
  118.     if "#$TMPVAR[0]#" in "#TMPSAVE#SAVEFILE#TMPFILE#TMPVAR#TMPVAL#HEADLINE#FILES#" {
  119.         continue;
  120.     }
  121.     if "_" = "$TMPVAR[0:0]" {
  122.         continue;
  123.     }
  124.     printf "%s ... %s\eJ\r" HEADLINE "$TMPVAR[0]"
  125.     cdr -0 $TMPVAR[0] ==> TMPVAL
  126.     if "'" in "$TMPVAR[1]" {
  127.         if "$TMPVAR[2]" != "" {
  128.             printf "$0: local var $TMPVAR[0] should be edited\n"
  129.             printf "# please quote \" in the next line\n" >> $SAVEFILE
  130.         }
  131.         printf >> $SAVEFILE '%s = "' "$TMPVAR[0]"
  132.         rem >> $SAVEFILE $TMPVAL[:-2]"
  133.     } else {
  134.         printf >> $SAVEFILE "%s = '%s'\n" "$TMPVAR[0]" '$TMPVAL[:-2]'
  135.     }
  136. until eof local_vars
  137. close local_vars
  138.     printf "export\n" >> $SAVEFILE
  139. restore -g $TMPSAVE
  140. # key bindings
  141. printf "%s ...\eJ\n" HEADLINE
  142. printf "key bindings ..."
  143. printf >> $SAVEFILE "# please remove trailing blanks from the following lines\n"
  144. key > $TMPFILE
  145. open keys $TMPFILE
  146. repeat
  147.     getline TMPVAR
  148.     if "$TMPVAR[0:0]" = "F" {
  149.         printf >> $SAVEFILE "key  f%d %s\n" $TMPVAR[1:2] "$TMPVAR[6:39]"
  150.         printf >> $SAVEFILE "key +f%d %s\n" $TMPVAR[42:43] "$TMPVAR[47:]"
  151.     } else {
  152.         printf >> $SAVEFILE "key %s %s\n" "$TMPVAR[1:2]" "$TMPVAR[6:39]"
  153.         printf >> $SAVEFILE "key %s %s\n" "$TMPVAR[42:43]" "$TMPVAR[47:]"
  154.     }
  155. until eof keys
  156. close keys
  157. # deleting temporary files
  158. RM -q $TMPFILE $TMPSAVE
  159.